﻿<!--#include file="const.asp"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>


<%
if sid="Null" then
	Response.Redirect "login.asp"
	Response.end
end if
IF  Request.QueryString("Action")="login" Then
	call login
else
	call index
end if
end Function



Function index
%>
	<card title="添加新用户"><p align="left">

		用户名:<br/>
		<input name="users" emptyok="true" type="text" maxlength="10"/><br/>
		手机号:<br/>
		<input name="mobile" emptyok="true"  format="*N" maxlength="11"/><br/>
		呢称:<br/>
		<input name="name" emptyok="true" type="text"   maxlength="10"/><br/>
		签名:<br/>
		<input name="mark" emptyok="true" type="text" maxlength="200"/><br/>
                性别<select name='sex' value='2'>
                <option value="1">男性</option>
                <option value="2">女性</option>
                </select><br/>
		密 码:<br/>
		<input name="pass" emptyok="true"  format="*N" maxlength="50"/><br/>
		邮 箱:<br/>
		<input name="email" emptyok="true"  maxlength="20"/><br/>
		<anchor>确定提交
    	<go href="adduser.asp?Action=login&amp;sid=<%=sid%>" method='post'>
				<postfield name="name" value="$(name:n)" />
				<postfield name="pass" value="$(pass:n)" />
				<postfield name="users" value="$(users:n)" />
                                <postfield name="mark" value="$(mark:n)" />
                                <postfield name="mobile" value="$(mobile:n)" />
                                <postfield name="sex" value="$(sex:n)" />
				<postfield name="email" value="$(email:n)" />
			</go>
		</anchor><br/>
-------------<br/>
<a href='user.asp?sid=<%=sid%>'>返回用户管理</a><br/>
<a href='index.asp?sid=<%=sid%>'>后台管理首页</a><br/>
<%
End Function


Function login

		dim name,rs8,sql8,errs
	        dim pass,users,sex,mail,mobile,mark,siddt

		name=Replace(Request.form("name"),"'","''")
		pass=Replace(Request.form("pass"),"'","''")
		users=Replace(Request.form("users"),"'","''")
		mail=Replace(Request.form("email"),"'","''")
		mobile=Replace(Request.form("mobile"),"'","''")
		mark=Replace(Request.form("mark"),"'","''")
		sex=Request.form("sex")
                if sex=1 then 
                sex="男"
                else 
                sex="女"
                end if

		errs=""
		if len(users)<2  then errs=errs&"用户名字数不能小于2"
		if len(name)<2  then errs=errs&"呢称字数不能小于2"
		if len(pass)<4  then errs=errs&"密码字数不能小于4"
		if len(mobile)<>11  then errs=errs&"手机号码格式错误"
		if len(mark)<5  then errs=errs&"签名字数不能小于5"
		if mail=""  then errs=errs&"邮箱不能为空"
		if instr(mail,"@")=0  then errs=errs&"邮箱格式不正确"
	%>
	<card id="login" title="添加新用户" ontimer="user.asp?sid=<%=sid%>"><timer value="20"/>
		<p align="left">
	<%
	IF len(errs)=0 then


				siddt=qingtian.RunStr

				siddt=md5(siddt)
				siddt=siddt&md5(strReverse(siddt))
				set rs8=Server.CreateObject("Adodb.Recordset")
  				sql8="select * FROM qingtian_user"
  				rs8.open sql8,conn,1,3
				rs8.addnew
				rs8("user")=users
				rs8("name")=name
				rs8("pass")=md5(pass)
				rs8("zf")=10
				rs8("mail")=mail
				rs8("mobile")=mobile
				rs8("doing")="注册为本站会员"
				rs8("doingtime")=now()
				rs8("mark")=mark
				rs8("xingbie")=sex
				rs8("sid")=siddt
				rs8.update
				rs8.close
				set rs8=nothing
		%>添加新用户成功!<br/><%

	else%>
		<%=errs%>
		<a href="adduser.asp?sid=<%=sid%>">返回修改</a><br/>
<%	end if
%>
<a href='user.asp?sid=<%=sid%>'>返回用户管理</a><br/>
<a href='index.asp?sid=<%=sid%>'>后台管理首页</a><br/>
<%
end Function 


%>
